home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (13th Edition) / The CD-ROM Directory 13.iso / install / inscript.ita < prev    next >
Text File  |  1993-11-19  |  17KB  |  711 lines
  1. ; CD Answer Installation Script - Generic                               jdk
  2. ; <<CDA>> Jun 1 1993;3.2
  3.  
  4. ; single/multiple disk version
  5. ;
  6. ;   To customize this install script:
  7. ;      1. Put the product name (1-8 characters) in a file called
  8. ;         'PRODNAME'. There should be no carriage return/line feed at
  9. ;         the end of the name- the file should contain just the characters
  10. ;         of the name.
  11. ;      2. Put the application name (CD Author 4 character project identifier)
  12. ;         in a file called 'APPLNAME'. Again, no other chars should be
  13. ;         the file. Multiple applications are formed by adding a space,
  14. ;         then another application identifier
  15. ;      3. Put the start-up message in a file called PRODSCRN.<language>
  16. ;         There should not be more than 10 lines.
  17. ;
  18. ;    The first disk must contain the \INSTALL directory.
  19. ;    This contains the general system files for the install
  20. ;    process and may be repeated on disk #2, etc.
  21. ;    The application specific files are kept in a directory
  22. ;    named 'DISK1'. If additional disks are required, create
  23. ;    an (empty) file on the current disk named '\MORE' and
  24. ;    put the overflow files in a directory named \DISK2 (3, 4, ...).
  25.  
  26. BREAK abort
  27.  
  28. ; install disk
  29. PARSE_PATH <$ProgDir>
  30. SET insdrive = <$Drive>
  31. SET ins = <insdrive>\INSTALL
  32. SET curdisk = 1
  33. GOSUB need_disk
  34.  
  35. ; here are some defaults:
  36.  
  37. ;TFPL 8-6-93
  38. ;CONFIG Colors = 0 2 0 30 0 30 0 30 0 112 0 143 0 79 0 79 0 48 0 15 0 30 0 79 0 143 1 30
  39. ;CONFIG ColorSet = 55
  40. ;TFPL
  41.  
  42. ;  default destination drive
  43. PARSE_PATH <$CurDir>
  44. SET def_dest = C:\
  45. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  46.  
  47. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  48. SET def_cdtype = High Sierra
  49. SET def_driver = FS_HSGEN
  50. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  51. SET def_cdtype = ISO
  52. SET def_driver = FS_ISGEN
  53. :ok_driver
  54.  
  55. ;  language
  56. SET def_lang = <$Language>
  57.  
  58. ; application name(s) (4 char ident(s) on CD-ROM)
  59. READFILE names = <ins>\APPLNAME.
  60.  
  61. ; product name (application name for batch file, subdirectory name)
  62. READFILE prod = <ins>\PRODNAME.
  63.  
  64. ; default dest drive and directory
  65. PARSE_PATH <def_dest><prod>.CD
  66. SET dstdrive = <$Drive>
  67. SET path = <$Dir>
  68. CD <dstdrive>\
  69.  
  70. ; read and display Application Installation Screen
  71. IF NOT EXISTS <insdrive>\INSTALL\PRODSCRN.<def_lang> GOTO no_banner
  72. READFILE screen = <insdrive>\INSTALL\PRODSCRN.<def_lang>
  73. GOTO show_banner
  74. :no_banner
  75. SET screen =
  76. ----        Istallazione di CD Answer per:\n\n
  77. ----               <prod>\n\n
  78. ----        Applicazione(i): <names>
  79. :show_banner
  80. CLEAR
  81. TEXT <screen>
  82. SET screen =
  83. WAIT
  84.  
  85. GOTO okdir
  86. :getdir
  87. CLEAR
  88. TEXT \nErrore -\n\n
  89. ----  Il path "<dstdrive><path>" non è legale!\n
  90. ----Per istallare il programma, ci vuole una unità come un
  91. ---- sottodirettorio valido.
  92. WAIT
  93. :okdir
  94. CLEAR
  95. TEXT La software di ricupero di dati deve esser istallata in un disco
  96. ---- duro o in un disco flessibile formato.  I valori standard sono unità <dstdrive>\n
  97. ----(di solito il disco duro), e un sottodirettorio chiamato <path>.\n
  98. ----Per usare questi valori, premere due volte la tastiera ┘ (Invio).  Per\n
  99. ----cambiarli, scrivere il nome della unità o del sottodirettorio dopo\n
  100. ----l'avviso corrispondente.  Quindi premere ┘ (Invio).
  101.  
  102. INPUT 6,8,5 dstdrive = Istallare nell'unità     ?
  103. INPUT 6,10,40 path   = Istallare nel direttorio ?
  104. SET dest = <dstdrive><path>
  105. SET confile = <ins>\_DW_.CFG
  106.  
  107. IF "<dstdrive>"=="" GOTO getdir
  108. IF "<path>"=="\" GOTO getdir
  109. IF "<path>"=="" GOTO getdir
  110. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  111.  
  112. CD <dstdrive>\
  113.  
  114. IF NOT DIREXISTS <dest> GOTO nopath
  115. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  116. CLEAR
  117. TEXT Il direttorio "<dest>" già esiste.
  118. NEWMENU 1, 3, 68
  119. ;TFPL -8-6-93
  120. MENU Installare il software e solo l'interfaccia italiana
  121. MENU INSTALLARE il software e l'interfaccia per tutte le lingue
  122. ;TFPL
  123. MENU Cancellare la versione vecchia;non installare il software nuovo
  124. MENU Cambiare la configurazione;non copiare il software
  125. MENU Interrompere l'installazione senza fare nessun cambio
  126. ENDCHOICES
  127.  
  128. ;TFPL -8-6-93
  129. CHOICE 1
  130. CLEAR
  131. TEXT Effacement du contenu antérieur de <dest>...
  132. FOREACH name = <names>
  133.  DEL <dest>\<name>*.*
  134. NEXT
  135. DEL <dest>\FS_*.DRV
  136. DEL <dest>\SC_*.DRV
  137. DEL <dest>\PR_*.DRV
  138. DEL <dest>\GR_*.DRV
  139. DEL <dest>\_DW_*.*
  140. DEL <dest>\ADL_MSGS.*
  141. DEL <dest>\DW.EXE
  142. DEL <dest>\UPDATE.EXE
  143. SET ch = 2
  144. GOTO okpath
  145.  
  146. ;TFPL
  147.  
  148. CHOICE 2
  149. CLEAR
  150. TEXT Cancellando il contenuto anteriore di <dest>...
  151. FOREACH name = <names>
  152. DEL <dest>\<name>*.*
  153. NEXT
  154. DEL <dest>\FS_*.DRV
  155. DEL <dest>\SC_*.DRV
  156. DEL <dest>\PR_*.DRV
  157. DEL <dest>\GR_*.DRV
  158. DEL <dest>\_DW_*.*
  159. DEL <dest>\ADL_MSGS.*
  160. DEL <dest>\DW.EXE
  161. DEL <dest>\UPDATE.EXE
  162. SET ch = 3
  163. GOTO okpath
  164.  
  165. CHOICE 3
  166. CLEAR
  167. TEXT Cancellando <dest> direttorio...
  168. FOREACH name = <names>
  169. DEL <dest>\<name>*.*
  170. NEXT
  171. DEL <dest>\FS_*.DRV
  172. DEL <dest>\SC_*.DRV
  173. DEL <dest>\PR_*.DRV
  174. DEL <dest>\GR_*.DRV
  175. DEL <dest>\_DW_*.*
  176. DEL <dest>\ADL_MSGS.*
  177. DEL <dest>\DW.EXE
  178. DEL <dest>\UPDATE.EXE
  179. IF NOT EXISTS <dest>\*.* GOTO remdest
  180. TEXT <dest> direttorio ha archivi sconosciuti; direttorio non è stato cancellato!!
  181. WAIT
  182. GOTO norem
  183. :remdest
  184. RD <dest>
  185. :norem
  186. DEL <dstdrive>\<prod>.BAT
  187. GOTO end2
  188.  
  189. CHOICE 4
  190. SET alter = Y
  191. SET confile = <dest>\_DW_.CFG
  192. GOTO okpath
  193.  
  194. CHOICE 5
  195. GOTO end2
  196. ENDCHOICES
  197.  
  198. :nopath
  199. MD <dest>
  200. IF NOT DIREXISTS <dest> GOTO getdir
  201.  
  202. ;TFPL -8-6-93
  203. TEXT New Installation
  204. NEWMENU 1, 3, 65
  205. MENU Istallare la software e solo l'interfaccia italiana
  206. MENU Istallare la software e l'interfaccia per tutte le lingue
  207. ENDCHOICES
  208.  
  209. CHOICE1
  210. SET ch = 2
  211. GOTO okpath
  212.  
  213. CHOICE2
  214. SET ch = 3
  215. GOTO okpath
  216. ENDCHOICES
  217.  
  218. :okpath
  219.  
  220. ;----------------------------------------------------------------------------
  221.  
  222. IF NOT EXISTS <confile> GOTO no_config
  223. DISP 5,14 Leggendo la configurazione...
  224. READCONFIG <confile>
  225. :no_config
  226.  
  227. ;----------------------------------------------------------------------------
  228.  
  229. HSCOUNT hs
  230. IF NOT <hs>==0 GOTO have_hs
  231.  
  232. CLEAR
  233. TEXT  Problema - Non c'è nessuna unità CD-ROM istallata.\n\n
  234. ----Si prega di usare il disco d'istallazione proporzionato por il fabbricante dell'
  235. ---- unità CD-ROM per istallare la software del device driver.  Quindi
  236. ---- ripeta questo programma d'istallazione.\n\n
  237. ----Note: Il programma d'istallazione dell'unità CD-ROM copierà alcuni
  238. ---- archivi sul disco di sistema e cambiarà gli archivi CONFIG.SYS e
  239. ---- AUTOEXEC.BAT\n
  240. ----Se Lei non ha altri programmi che usano il programma MSCDEX, si raccomanda
  241. ---- elliminare la riga che chiama questo programma di suo archivio AUTOEXEC.BAT
  242. ---- perché questa software non lo bisogna.\n\n
  243. ----Dopo aver istallato i drivers CD-ROM si deve ricominciare il sistema.
  244.  
  245. WAIT
  246. ABORT
  247.  
  248. :have_hs
  249. ;TFPL 19-11-93
  250. GOTO get_hs_letter
  251.  
  252. SET msg =
  253. IF <hs>==1 GOTO instOne
  254.  
  255. TEXT Una selezione di <def_cdtype> drivers CD-ROM sono disponibili:\n\n
  256. ----Selezione il device driver CD-ROM <def_cdtype> di questa lista di device
  257. ----drivers disponibili usando le tastiere  y .  Quindi\n
  258. ----premere ┘ (Invio).  Premere Esc per interrompere l'istallazione.
  259. GOTO :instMore
  260.  
  261. :instOne
  262. SET msg = Un driver CD-ROM <def_cdtype> è stato istallato (guardare CONFIG.SYS):\n\n
  263.  
  264. :instMore
  265. HSDRIVER hsname = 25, 8
  266. CONFIG Driver = "<def_driver>=<hsname>"
  267. CLEAR
  268. TEXT <msg>Il driver CD-ROM <def_cdtype> selezionato si chiama "<hsname>".
  269. ----  Se questo non è corretto, premere Esc per interrompere l'istallazione e
  270. ---- controllare l'archivio CONFIG.SYS\n\n
  271. ----Questa software NON ha bisogno del programma MSCDEX.EXE (Microsoft CD-ROM
  272. ---- Extensions).  Se nessun altro programma l'ha bisogno dunque Lei può
  273. ---- elliminare questo programma del suo archivio \AUTOEXEC.BAT (dove può essere
  274. ---- stato istallato dal programma d'istallazione).
  275.  
  276. WAIT
  277.  
  278. CLEAR
  279. TEXT Copiando Interface CD-ROM <def_cdtype>...
  280. SET driver_name = <def_driver>.DRV
  281. GOSUB copy_driver
  282.  
  283. ;TFPL 19-11-93
  284. :get_hs_letter
  285. CLEAR
  286. :tfpl_drive
  287. GOTO tfp1
  288. :drive_error
  289. TEXT Error: The database is not available on the specified drive...\n\n
  290. :tfp1
  291. TEXT \n\n
  292. ----Scrivete la lettera